野猪通缉画像

在《博士养成记》里我放了两张野猪的照片来记载港大医学院的生活，我第一次见过野猪是有一次在实验室加班到半夜，然后走路回宿舍，走着走着，迎面走来一只动物，我以为是只流浪狗，直到走到很近的时候，我艹，有獠牙！是野猪！竟然大摇大摆在公路上走！当我假装淡定走了几步后，拿出手机抓拍它的背影时，已经拍得不清晰了。后来在湾景看到过，再后来在去数码港的路上也看到过。

野猪在香港也算不上什么新闻了：

但是在港大这几年，第一次收到学校关于野猪的邮件，因为野猪攻击人了！

据朋友圈报料，好像惨不忍睹：

---

p = ggplot(d, aes(x, y)) + geom_point(size=.8) +
 scale_y_reverse() + xlab(NULL) + ylab(NULL) +
 geom_image(image="http://guangchuangyu.github.io/blog_images/biobabble.jpg", x=550, y=-550, size=.1, asp=1.5) +
    labs(title="港大野猪通缉画像", 
         subtitle="生态环境太好的校园，有时也是蛮囧的！") +
    labs(caption="学ggplot2画图\n请扫码关注公众号\nbiobabble") + 
    theme(plot.title=element_text(family="STHeiti"),
        plot.subtitle=element_text(family="STHeiti"),
        plot.caption=element_text(family="STHeiti", hjust=0)) + coord_equal(clip="off") 

---

往期精彩